home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Applications / Demos_Demo folder / Demos_Info folder / Demos™ Demonstration / More Models / Hospital cost next >
Text File  |  1993-05-25  |  4KB  |  151 lines
  1. { From user A Lumens, Project Hospitalcost at Tue, May 25, 1993 9:08 PM}
  2.  
  3.  
  4. { System Variables with non-default values: }
  5. Numberwidth := 7
  6. Samplesize := 150
  7. Distribsize := 30
  8. Windows := 2
  9. Sampletype := 1
  10. Usetable := 0
  11. Typechecking := 1
  12. Checking := 1
  13. Showundef := 0
  14. Saveoptions := 2
  15. Savevalues := 0
  16.  
  17.  
  18. { Non-default Time SysVar value: }
  19. Time := Sequence(0,20)
  20.  
  21. Attribute Reference
  22.  
  23. Project Hospitalcost
  24. Title: Hospital Cost
  25. Description: Hospital cost is a model that evaluates the transitions of a hospital patient between an intensive-care unit (ICU), a ward, home and the morgue, over time.~
  26. ~
  27. The locations are specified as strings: 'Morgue', 'ICU', 'Ward', and 'Home'.
  28. Author: Tom Paterson, Strategic Decisions Group~
  29. Modifications 2/20/93 for Demos 2.5a by Brian Arnold
  30. Date: Fri, Sep 18, 1992 9:37 AM
  31. Saveauthor: A Lumens
  32. Savedate: Tue, May 25, 1993 9:08 PM
  33. Diagstate: 1,19,42,492,264,1
  34. Fileinfo: 0,-6,5798,Project Hospitalcost,Hospital cost
  35. Getresource Pagesetup,1
  36.  
  37. Variable Patient_loc
  38. Title: Patient~
  39. Location
  40. Description: The patient location is calculated as a dynamic function, where the future location depends on the current location and a probability distribution describing possible next locations.~
  41. ~
  42. The initial patient location (the first parameter to Dynamic) is specified, and an If Then Else statement figures out whether to use a Chance distribution to figure out the next location, given the current location.
  43. Definition: Dynamic(Initial_loc,
  44.   If (Patient_loc[Time-1] = 'ICU' ) Then 
  45.     ChanceDist( ICU_outcomes, ICU_Probs )
  46.    Else If (Patient_loc[Time-1] = 'Ward' )Then 
  47.     ChanceDist( Ward_outcomes, Ward_Probs )
  48.   Else
  49.      Patient_loc[Time-1])
  50. Location: 256,104
  51. Nodesize: 48,20
  52. Windstate: 1,603,157
  53. Valuestate: 1,297,309,640,428,0,SAMP
  54. Reformval:           [Run       ,Time      ]
  55.  
  56. Chance Hosp_cost
  57. Title: Hospital~
  58. Cost
  59. Units: $
  60. Description: Cumulative hospital cost, over time.
  61. Definition: Cumulate(
  62. if (Patient_loc = 'ICU') then 1000 else
  63. if (Patient_loc = 'Ward') then 100 else
  64. 0, Time)
  65. Location: 256,208
  66. Nodesize: 48,20
  67. Windstate: 1,152,410
  68. Valuestate: 1,380,151,416,303,1,MEAN
  69. Fontstyle: Palatino, 12
  70.  
  71. Objective P_survival
  72. Title: Probability~
  73. of Survival
  74. Description: Probability of survival is calculated as the mean value for patient location Survival (0..1) given distributions of patient locations over time.
  75. Definition: Mean(Survival[Location_name=Patient_loc] )
  76. Location: 376,104
  77. Nodesize: 48,20
  78. Valuestate: 1,345,268,417,290,1,MIDM
  79.  
  80. Index Ward_outcomes
  81. Title: Ward~
  82. Outcomes
  83. Description: Outcomes (locations) corresponding to probabilities for patient in Ward.
  84. Definition: ['ICU','Ward','Home']
  85. Location: 272,272
  86. Nodesize: 48,20
  87.  
  88. Index Icu_outcomes
  89. Title: ICU~
  90. Outcomes
  91. Description: Outcomes (locations) for probabilities of transfer from ICU.
  92. Definition: ['Morgue','ICU','Ward']
  93. Location: 168,272
  94. Nodesize: 48,20
  95. Windstate: 1,526,61
  96.  
  97. Index Location_name
  98. Title: Location~
  99. Names
  100. Definition: ['Morgue', 'ICU', 'Ward','Home']
  101. Location: 64,272
  102. Nodesize: 48,20
  103.  
  104. Chance Location_f
  105. Title: Location~
  106. frequency
  107. Definition: Frequency(Patient_loc, Location_name )
  108. Location: 376,208
  109. Nodesize: 48,20
  110. Valuestate: 1,489,224,433,290,1,MIDM
  111. Reformval:           [Time      ,Location_name]
  112.  
  113. Chance Initial_loc
  114. Title: Initial~
  115. Patient Location
  116. Definition: Choice(Location_Name,2)
  117. Location: 64,104
  118. Nodesize: 52,20
  119.  
  120. Chance Survival
  121. Title: Survival~
  122. Odds
  123. Description: Survival is the odds that the patient will survive at a given location.
  124. Definition: Table(Location_name)(
  125.    0,(1/3),(2/3),1
  126. )
  127. Location: 320,40
  128. Nodesize: 48,20
  129.  
  130. Chance Icu_probs
  131. Title: ICU~
  132. Probabilities
  133. Definition: Table(Icu_outcomes)(
  134. 0.2,0.5,0.3)
  135. Indexvals: ['Morgue','ICU','Ward']
  136. Location: 160,40
  137. Nodesize: 48,20
  138. Defnstate: 1,472,482,324,138,0,MIDM
  139.  
  140. Chance Ward_probs
  141. Title: Ward~
  142. Probabilities
  143. Definition: Table(Ward_outcomes)(
  144. 0.2,0.5,0.3)
  145. Indexvals: ['ICU','Ward','Home']
  146. Location: 160,160
  147. Nodesize: 48,20
  148. Defnstate: 1,520,530,324,138,0,MIDM
  149.  
  150. Close Hospitalcost
  151.